/* GUI CONVERTED from rerpfm01.i (converter v1.75) Fri Jun 22 15:25:40 2001 */
/* rerpfm01.i - REPETITIVE SCHEDULE MAINTENANCE FORM                          */
/* Copyright 1986-2002 QAD Inc., Carpinteria, CA, USA.                        */
/* All rights reserved worldwide.  This is an unpublished work.               */
/* $Revision: 1.5.1.2 $                                                           */
/*V8:ConvertMode=Maintenance                                                  */
/* REVISION: 7.3      LAST MODIFIED: 01/13/93   BY: emb *G689*                */
/* REVISION: 7.3      LAST MODIFIED: 09/21/94   BY: ljm *GM77*                */
/* REVISION: 7.3      LAST MODIFIED: 10/19/94   BY: ljm *GN40*                */
/* REVISION: 8.6E     LAST MODIFIED: 02/23/98   BY: *L007* A. Rahane          */
/* REVISION: 8.6E     LAST MODIFIED: 05/20/98   BY: *K1Q4* Alfred Tan         */
/* REVISION: 8.6E     LAST MODIFIED: 10/04/98   BY: *J314* Alfred Tan         */
/* REVISION: 9.1      LAST MODIFIED: 08/23/00   BY: *N0ND* Mark Brown         */
/* Old ECO marker removed, but no ECO header exists *F0PN*                    */
/* Old ECO marker removed, but no ECO header exists *GN62*                    */
/* $Revision: 1.5.1.2 $    BY: Hualin Zhong   DATE: 06/13/01 ECO: *N0ZF*          */
/******************************************************************************/
/* All patch markers and commented out code have been removed from the source */
/* code below. For all future modifications to this file, any code which is   */
/* no longer required should be deleted and no in-line patch markers should   */
/* be added.  The ECO marker should only be included in the Revision History. */
/******************************************************************************/

define variable l_scheduled as character format "x(10)" no-undo.
define variable l_routing as character format "x(14)" no-undo.
define variable l_bom_code as character format "x(16)" no-undo.
define variable l_due_date as character format "x(11)" no-undo.

FORM /*GUI*/ 
   /*V8+*/
        
   
 RECT-FRAME       AT ROW 1 COLUMN 1.25
 RECT-FRAME-LABEL AT ROW 1 COLUMN 3 NO-LABEL VIEW-AS TEXT SIZE-PIXELS 1 BY 1
 SKIP(.1)  /*GUI*/
l_due_date  at 13
   l_scheduled at 27
   l_routing at 38
   l_bom_code at 60
     
   skip
   days[1]       at 2    no-attr-space
   due_date[1] no-attr-space
   space(3)
   rpq_qty[1]
   space(3)
   route[1]
   space(3)
   bom_code[1]
   days[2]       at 2    no-attr-space
   due_date[2] no-attr-space
   space(3)
   rpq_qty[2]
   space(3)
   route[2]
   space(3)
   bom_code[2]
   days[3]       at 2    no-attr-space
   due_date[3] no-attr-space
   space(3)
   rpq_qty[3]
   space(3)
   route[3]
   space(3)
   bom_code[3]
   days[4]       at 2    no-attr-space
   due_date[4] no-attr-space
   space(3)
   rpq_qty[4]
   space(3)
   route[4]
   space(3)
   bom_code[4]
   days[5]       at 2    no-attr-space
   due_date[5] no-attr-space
    space(3)
   rpq_qty[5]
   space(3)
   route[5]
   space(3)
   bom_code[5]
   days[6]       at 2    no-attr-space
   due_date[6] no-attr-space
   space(3)
   rpq_qty[6]
   space(3)
   route[6]
   space(3)
   bom_code[6]
   days[7]       at 2    no-attr-space
   due_date[7] no-attr-space
   space(3)
   rpq_qty[7]
   space(3)
   route[7]
   space(3)
   bom_code[7]
   skip
   space(9)
   days[8] no-attr-space
   space(2)
   rpq_qty[8] format ">>,>>>,>>9.9<<<<<<<"
 SKIP(.4)  /*GUI*/
with frame b no-labels width 80 no-attr-space NO-BOX THREE-D /*GUI*/.

 DEFINE VARIABLE F-b-title AS CHARACTER INITIAL "".
 RECT-FRAME-LABEL:SCREEN-VALUE in frame b = F-b-title.
 RECT-FRAME-LABEL:HIDDEN in frame b = yes.
 RECT-FRAME:HEIGHT-PIXELS in frame b =
  FRAME b:HEIGHT-PIXELS - RECT-FRAME:Y in frame b - 2.
 RECT-FRAME:WIDTH-CHARS IN FRAME b = FRAME b:WIDTH-CHARS - .5.  /*GUI*/


assign
   l_scheduled:screen-value = getTermLabel("SCHEDULED",10)
   l_routing:screen-value   = getTermLabel("ROUTING",14)
   l_bom_code:screen-value  = getTermLabel("BOM_CODE",16)
   l_due_date:screen-value  = getTermLabel("DUE_DATE",11).
